program ej12; { Ejemplo 12 de CpcPaChi }
const modo =0, linea1 = 10;
var
  color: byte; 
var
  opcion: byte;  
  
begin
  cpcMode(modo);
  color := 2;
  opcion := 1;
  pen(color);
  paper(1);
  locate(10,linea1);
  writeChar( 'a' );
  (* Volvemos a escribir en
     la misma linea *)
  if opcion = 1 then
    begin  
    inc(color);
    pen(color);
    writeChar( 'b' );
    end    
  else
    begin  
    color := 1;
    pen(color);
    writeChar( 'd' );
    end ;
  paper(2);
  locate ( 1 ,  linea1 );
  writeChar('d');
end.

